home *** CD-ROM | disk | FTP | other *** search
/ dub Media Cool Graphics / Dub Media - Cool Graphics.iso / SBdemo / WLD / SALDEMO.WLD < prev    next >
Text File  |  1997-01-28  |  15KB  |  427 lines

  1. START_WLD = THUDCHAT_WLD
  2. DISKID=1
  3. DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
  4.  
  5. //    ID     X  Y  FileName
  6. CURSOR 0  = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\NOT.BMP
  7. CURSOR 1  = 16  1 $SBARDIR\NEBLITZ\CURSORS\SALIV\SALIV.BMP
  8. CURSOR 2  =  9  9 $SBARDIR\NEBLITZ\CURSORS\SALIV\ZOOM.BMP
  9. CURSOR 5  = 16  1 $SBARDIR\NEBLITZ\CURSORS\SALIV\LINK.BMP
  10. CURSOR 6  = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\WAIT.BMP
  11. CURSOR 10 =  0  0 $SBARDIR\NEBLITZ\CURSORS\SALIV\EXIT.BMP
  12. CURSOR 14 =  0 14 $SBARDIR\NEBLITZ\CURSORS\SALIV\LEFT.BMP
  13. CURSOR 15 = 15  0 $SBARDIR\NEBLITZ\CURSORS\SALIV\UPARROW.BMP
  14. CURSOR 16 = 31 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\RIGHT.BMP
  15. CURSOR 17 = 15 31 $SBARDIR\NEBLITZ\CURSORS\SALIV\DOWN.BMP
  16. CURSOR 19 = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\BNOT.BMP
  17. CURSOR 20 = 15 15 $SBARDIR\NEBLITZ\CURSORS\SALIV\BEXIT.BMP
  18. CURSOR 22 = 16  1 $SBARDIR\NEBLITZ\CURSORS\SALIV\HUMAN.BMP
  19. CURSOR 24 = 27  1 $SBARDIR\BAR\CURSORS\LINK.BMP
  20.  
  21. // Wield Cursors
  22. CURSOR 31 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhta.bmp
  23. CURSOR 32 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhtb.bmp
  24. CURSOR 33 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhtc.bmp
  25. CURSOR 34 =  0  0 $SBARDIR\NEBLITZ\WIELD\nhtd.bmp
  26.  
  27. VAR BAZFIRE = FALSE
  28. VAR INIT=TRUE
  29. VAR CUPLOOK = FALSE
  30. VAR STURNCOUNT AS TIMER = 200
  31.  
  32. // jwl 11.18.96 PDA save state information
  33. VAR PDAMODE = NOMODE
  34. VAR PDAINCREMENT = 11
  35. VAR RADIOON = FALSE
  36. VAR PDAPOSITION = DOWN
  37.  
  38. SDEV BPDA_WLD AS PDA{
  39.     SET BKG = $SBARDIR\NEBLITZ\PDA\SALIV\OPDA.BMP;
  40.     SET ARE=DEACTIVE[0,0,514,238]{
  41.         RUN COMMAND = DEACTIVATEPDA;
  42.     };
  43.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OMAP.BMP[116,187]+1^100;
  44.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OSTASH.BMP[161,186]+1^101;
  45.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OZOOM.BMP[208,186] +1^102{
  46.         // DEMO: zoom brings up not included message -- bar 01-23-97
  47.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  48.     };
  49.     SET BUT=$SBARDIR\NEBLITZ\PDA\SALIV\OSYSTEM.BMP[254,188]+1^103;
  50.     SET BUT = $SBARDIR\NEBLITZ\PDA\SALIV\OLOG.BMP[299,188]+1^104;
  51.     SET CHR=$SBARDIR\NEBLITZ\PDA\SALIV\OWAND.SMK^WANDANIM LOOP 0 [44,31];
  52.     SET TIME=$SBARDIR\NEBLITZ\PDA\SALIV\OTIME.BMP[410,140]^CLOCK+11 VALUE STURNCOUNT;
  53.     SET BMP = $SBARDIR\NEBLITZ\MAP\NHP.BMP[374,81];
  54. }
  55. SDEV MAP_WLD AS BMP RECT [114, 61, 346, 171]{
  56.     SET BKG = $SBARDIR\NEBLITZ\MAP\OMAP.BMP;
  57. }
  58. SDEV INV_WLD AS INVWLD RECT [114, 61, 346, 171]{
  59.     SET BKG = $SBARDIR\NEBLITZ\INV\INVBACK.BMP;
  60.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTB.BMP^TOKEN{
  61.         SET TXT = little_metal_thing COLOR 2 SIZE 16 AS TITLE; //%%283
  62.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  63.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTBEXC1.wav  AS QUEUE;
  64.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTB.SMK AS EXAMINE;
  65.         };
  66.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  67.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  68.         };
  69.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  70.             RUN COMMAND = TRANSFER OBJECT TOKEN FROM INV_WLD TO BWIELD_WLD;
  71.         };
  72.     };
  73.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTA.BMP^CUP{
  74.         SET TXT = cup COLOR 2 SIZE 16 AS TITLE; //%%296
  75.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  76.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEXC1.wav  AS QUEUE;
  77.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTA.SMK AS EXAMINE;
  78.         };
  79.         IF ( CUPLOOK == FALSE )
  80.             SET BMP = $SBARDIR\GENERAL\MENUS\LOOKIN.BMP{
  81.                 RUN LNK = NHP_WLD~~EXINCUP_WLD~~INCUP_WLD;
  82.             };
  83.         ENDIF
  84.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  85.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  86.         };
  87.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  88.             RUN COMMAND = TRANSFER OBJECT CUP FROM INV_WLD TO BWIELD_WLD;
  89.         };
  90.     };
  91.  
  92.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTC.BMP^MACHINE{
  93.         SET TXT = blinking_machine COLOR 2 SIZE 16 AS TITLE; //%%319
  94.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  95.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTCEXC1.wav  AS QUEUE;
  96.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTC.SMK AS EXAMINE;
  97.         };
  98.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  99.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTCEAC1.wav  AS QUEUE;
  100.         };
  101.         IF ( RADIOON == FALSE )
  102.             SET BMP = $SBARDIR\GENERAL\MENUS\ON.BMP{
  103.                 RUN EXPR = RADIOON ( TRUE );
  104.             };
  105.         ENDIF
  106.         IF ( RADIOON == TRUE )
  107.             SET BMP = $SBARDIR\GENERAL\MENUS\OFF.BMP{
  108.                 RUN EXPR = RADIOON ( FALSE );
  109.             };
  110.         ENDIF
  111.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP{
  112.             RUN COMMAND = TRANSFER OBJECT MACHINE FROM INV_WLD TO BWIELD_WLD;
  113.         };
  114.     };
  115.  
  116.     HOLD BMP = $SBARDIR\NEBLITZ\INV\NHTD.BMP^BAZOOKA{
  117.         SET TXT = bazooka COLOR 2 SIZE 16 AS TITLE; //%%347
  118.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  119.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTDEXC1.wav  AS QUEUE;
  120.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTD.SMK AS EXAMINE;
  121.         };
  122.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  123.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  124.         };
  125.         SET BMP = $SBARDIR\GENERAL\MENUS\PICKUP.BMP    {
  126.             RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM INV_WLD TO BWIELD_WLD;
  127.         };
  128.     };
  129. }
  130. SDEV LOG_WLD AS LOG RECT[115,61,350,171]{
  131.     SET BKG = $SBARDIR\NEBLITZ\LOG\SALLOG.BMP;
  132. }
  133. SDEV BWIELD_WLD AS WIELD{
  134.     BKG=$SBARDIR\NEBLITZ\WIELD\SALME.BMP;
  135.     SET ARE = YOU[0,0,100,100]{
  136.         SET TXT = Thud COLOR 2 SIZE 16 AS TITLE; //%%173
  137.         SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP{
  138.             RUN SND = $SBARDIR\GENERAL\WAIT.WAV; 
  139.             RUN COMMAND = UPDATE;
  140.         };
  141.         SET BMP = $SBARDIR\GENERAL\MENUS\SNAPOUT.BMP{
  142.             RUN LNK = $SBARDIR\WLD\BAR.WLD~~BDP_WLD~~FLEETHUD_WLD FADE 3;
  143.         };
  144.     };
  145.     HOLD BMP = $SBARDIR\NEBLITZ\WIELD\NHTB.BMP^TOKEN#32{
  146.         SET TXT = little_metal_thing COLOR 2 SIZE 16 AS TITLE; //%%185
  147.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  148.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTBEXC1.wav  AS QUEUE;
  149.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTB.SMK AS EXAMINE;
  150.         };
  151.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  152.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  153.         };
  154.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  155.             RUN COMMAND = TRANSFER OBJECT TOKEN FROM BWIELD_WLD TO INV_WLD;
  156.         };
  157.     };
  158.     HOLD BMP = $SBARDIR\NEBLITZ\WIELD\NHTA.BMP^CUP #31{
  159.         SET TXT = cup COLOR 2 SIZE 16 AS TITLE; //%%198
  160.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP {
  161.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEXC1.wav  AS QUEUE;
  162.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTA.SMK AS EXAMINE;
  163.         };
  164.         IF ( CUPLOOK == FALSE )
  165.             SET BMP = $SBARDIR\GENERAL\MENUS\LOOKIN.BMP{
  166.                 RUN LNK = NHP_WLD~~EXINCUP_WLD~~INCUP_WLD;
  167.             };
  168.         ENDIF
  169.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP{
  170.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  171.         };
  172.         SET BMP = $SBARDIR\GENERAL\MENUS\THROW.BMP{
  173.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTATWC1.wav  AS QUEUE;
  174.         };
  175.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  176.             RUN COMMAND = TRANSFER OBJECT CUP FROM BWIELD_WLD TO INV_WLD;
  177.         };
  178.     };
  179.  
  180.     HOLD BMP = $SBARDIR\NEBLITZ\WIELD\NHTD.BMP^BAZOOKA #34 {
  181.         SET TXT = bazooka COLOR 2 SIZE 16 AS TITLE; //%%253
  182.         SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
  183.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTDEXC1.wav  AS QUEUE;
  184.             RUN MOVIE = $SBARDIR\NEBLITZ\OBJ\NHTD.SMK AS EXAMINE;
  185.         };
  186.         SET BMP = $SBARDIR\GENERAL\MENUS\EAT.BMP {
  187.             RUN SND =  $SBARDIR\NEBLITZ\AUDIO\NHTAEAC1.wav  AS QUEUE;
  188.         };
  189.         SET BMP = $SBARDIR\GENERAL\MENUS\STASH.BMP{
  190.             RUN COMMAND = TRANSFER OBJECT BAZOOKA FROM BWIELD_WLD TO INV_WLD;
  191.         };
  192.     };
  193.     // DEMO: Removed interactions with blinking_machine.
  194. }
  195.  
  196. // Thud Chat
  197. SDEV THUDCHAT_WLD AS CHAT{
  198.     SET BKG = $SBARDIR\NEBLITZ\CHAR\THUD\CHBLACK.BMP;
  199.     // DEMO: Pull Thud's neutral loop from the bar asset area.
  200.     SET CHR = $SBARDIR\BAR\CHAR\THUD\TBNEUTR1.SMK^THUDMOVIE [80,10];
  201.  
  202.     SET ARE = [0,0,639,479]%19;
  203.  
  204.         SET AREA=[0,0,80,370]%20{
  205.         RUN EXPR = FINISHCHOICE( RANDOM % 5 );
  206.         IF (FINISHCHOICE == 0)
  207.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH1.WAV AS WAITMIX;
  208.         ENDIF
  209.         IF (FINISHCHOICE == 1)
  210.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH2.WAV AS WAITMIX;
  211.         ENDIF
  212.         IF (FINISHCHOICE == 2)
  213.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH3.WAV AS WAITMIX;
  214.         ENDIF
  215.         IF (FINISHCHOICE == 3)
  216.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH4.WAV AS WAITMIX;
  217.         ENDIF
  218.         IF (FINISHCHOICE == 4)
  219.             RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH5.WAV AS WAITMIX;
  220.         ENDIF
  221.         RUN EXPR = LEVEL( 0 );
  222.         RUN LNK = $SBARDIR\WLD\BAR.WLD~~BDP_WLD~~FLEETHUD_WLD FADE 3;
  223.     };
  224.  
  225.     IF (OPENERDONE